home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
misc
/
avmNfax1_33.lha
/
AVMSuite
/
rexx
/
killall.avm
< prev
next >
Wrap
Text File
|
1994-06-24
|
2KB
|
71 lines
/* to broadcast to everyone to quit */
call addlib("rexxsupport.library", 0, -30, 0)
/* Assume MAX of 10 AVMLOGVIEWs */
if showlist('p', 'AVMCALLNOTIFIER') then
address 'AVMCALLNOTIFIER' 'quit'
ports = upper(show('p'))
numports = words(ports)
do i = 1 to numports
cport = word(ports, i)
if pos('AVMLOGVIEW', cport) > 0 then do
address value cport
'quit'
end
if pos('AVMSCHEDULER', cport) > 0 then do
address value cport
'quit'
end
if pos('AVMSCHEDULERVIEW', cport) > 0 then do
address value cport
'quit'
end
end
if showlist('p', 'AVMPLAYER') then
address 'AVMPLAYER' 'quit'
if showlist('p', 'AVMPROGRAMMER') then
address 'AVMPROGRAMMER' 'quit'
if showlist('p', 'AVMSERVERCONFIG') then
address 'AVMSERVERCONFIG' 'quit'
if showlist('p', 'AVMSERVERMAN') then
address 'AVMSERVERMAN' 'quit'
if showlist('p', 'AVMLOGGER') then
address 'AVMLOGGER' 'quit'
if showlist('p', 'AVMCIDLOGGER') then
address 'AVMCIDLOGGER' 'quit'
if showlist('p', 'AVMFAXPRINTER') then
address 'AVMFAXPRINTER' 'quit'
do i = 1 to 10
a = 'AVMMAILBOXCONFIG.' || i
if showlist('p', a) then do
address value a
'quit'
end
end
/* kill the active servers */
call open('servers', 'avm:servers.cfg', 'r')
do while ~eof('servers')
line = readln('servers')
parse upper var line variable '=' value
if variable = 'PORT' then do
address value value
'quit'
end
end